home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed5.d64 / hyphens (.txt) < prev    next >
Commodore BASIC  |  2009-01-03  |  6KB  |  204 lines
  1. 1 GOTO910
  2. 2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 
  3. 3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`    
  4. 4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`    
  5. 5 [153]"hhhhhhh`  
  6. 6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`   
  7. 7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`  
  8. 35 IFUW=0THENSYSUU,15
  9. 40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39
  10. 45 GETUI$:IFUI$=""THEN45
  11. 50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO75
  12. 55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157]  [157][157]";:GOTO45
  13. 60 IFUR=ULTHEN45
  14. 65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45
  15. 75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
  16. 80 UR$=LEFT$(UR$,UI):PRINT:RETURN
  17. 95 IFLEN(US$)=0THEN110
  18. 100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
  19. 105 RETURN
  20. 110 REM IFUA=46THENRETURN
  21. 115 IFUA=32ANDUR<>0THENRETURN
  22. 117 IFUA=45THENRETURN
  23. 120 REMIFUA>47ANDUA<58THENRETURN
  24. 125 IFUA>64ANDUA<91THENRETURN
  25. 130 REMIFUA<193ORUA>218THENUI$="":RETURN
  26. 135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
  27. 140 UI$="":RETURN
  28. 155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:POKEUY,6:POKEUX,6
  29. 160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:SYSUU,15
  30. 165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35
  31. 300 REM DERIVED FROM COMMODORE ONTARIO EDUCATIONAL SOFTWARE PROJECT 1983
  32. 310 REM DIRECTOR: FRANK WINTER
  33. 320 REM PROGRAM NAME: HYPHEN"
  34. 330 [143] WRITTEN BY: JO ANN COMITO & LUD BRAUN
  35. 340 [143] REVISED BY: MIKE DEMMER & D. MASON
  36. 350 [143] UPDATED BY: BILL CUMBERLAND
  37. 399 :
  38. 400 [153]"LOAD":[151]UT,UL%:[151]UY,0:[151]UX,0:[151]646,3
  39. 405 [153]"LOAD             RIGHT$(null)(null)(null)(null)(null)LEN(null)RIGHT$(null)(null)(null) WAIT
  40. 412 PRINT" [201] WILL DISPLAY A WORD FOR YOU TO        HYPHENATE.
  41. 414 [153]" (null)LEASE RE-TYPE IT, INSERTING HYPHENS    BETWEEN THE SYLLABLES.
  42. 418 PRINT" [201]F YOU DON'T HYPHENATE THE WORD"
  43. 420 PRINT" CORRECTLY, [201]'LL GIVE YOU CLUES."
  44. 442 PRINT" [193]FTER TWO CHANCES, [201] WILL SHOW YOU"
  45. 444 PRINT" THE CORRECT HYPHENATION OF THE WORD."
  46. 446 PRINT" [212]HERE WILL BE TEN QUESTIONS.
  47. 448 [141]830:[142]
  48. 499 :
  49. 500 [143] <YES> SOUND
  50. 505 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  51. 510 [151]54296,15:[151]54277,42:[151]54278,250
  52. 515 [151]54276,23:[151]54273,23:[151]54272,191
  53. 520 [129]T[178]1[164]100:[130]:[151]54276,32:[129]T[178]1[164]200:[130]
  54. 525 [151]54296,0:[142]
  55. 530 [143] <NO> SOUND
  56. 535 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  57. 540 [151]54296,15:[151]54277,18:[151]54278,242
  58. 545 [151]54276,33:[151]54273,4:[151]54272,48
  59. 550 [129]T[178]1[164]300:[130]:[151]54276,32:[129]T[178]1[164]400:[130]
  60. 555 [151]54296,0:[142]
  61. 560 [143] <BLIP> SOUND
  62. 565 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  63. 570 [151]54296,8:[151]54277,42:[151]54278,250
  64. 575 [151]54276,23:[151]54273,23:[151]54272,191
  65. 580 [129]T[178]1[164]30:[130]:[151]54276,32:[129]T[178]1[164]50:[130]
  66. 585 [151]54296,0:[142]
  67. 590 [129]T[178]1[164]500:[130]:[142]
  68. 591 [129]T[178]1[164]1000:[130]:[142]
  69. 592 [129]T[178]1[164]2000:[130]:[142]
  70. 593 [129]T[178]1[164]3000:[130]:[142]
  71. 594 [129]T[178]1[164]4000:[130]:[142]
  72. 595 [129]T[178]1[164]5000:[130]:[142]
  73. 596 [129]T[178]1[164]6000:[130]:[142]
  74. 599 :
  75. 800 [153]"LOAD";:[151]UT,UU%:[151]UY,0:[151]UX,0:[151]646,7
  76. 801 [153]"      A TPUG EDUCATIONAL PROGRAM ":[141]591:[141]560
  77. 802 [153]"                                        WAIT";
  78. 803 [153]"                                        WAIT";
  79. 804 [153]"              THE HYPHEN                WAIT";
  80. 805 [153]"                                        WAIT";
  81. 806 [153]"               MODULE 1                 WAIT";
  82. 807 [153]"                                        WAIT";
  83. 808 [153]"                                        WAIT":[141]591:[141]560
  84. 809 [153]"          INSTRUCTIONS?  Y/N
  85. 810 GETR$:IFR$<>"Y"ANDR$<>"N"THEN810
  86. 811 IFR$="Y"THENGOSUB400
  87. 812 PRINT"[147]  .. AND AWAY WE GO!":GOSUB591:GOSUB500:GOSUB590
  88. 813 GOTO1000
  89. 830 GOSUB592:GOSUB560
  90. 835 POKEUN,0:PRINTLEFT$(UD$,24);"[153] [208]RESS [211][208][193][195][197] [194][193][210] TO CONTINUE [146][155]"
  91. 840 GETUI$:IFUI$<>" "THEN840
  92. 845 RETURN
  93. 850 UP=UP+1:PRINT"[147]"LEFT$(UT$+UP$,21);RIGHT$(UP$+UG$+STR$(UP),18)
  94. 855 PRINT" --------------------------------------"
  95. 860 IFUH=0THENPRINTLEFT$(UD$,24);LEFT$(UP$,7);"[193]NSWER, THEN PRESS  [210][197][212][213][210][206] [146]"
  96. 865 UH=0:PRINT"":RETURN
  97. 875 PRINTLEFT$(UD$,24);"           [207]NE MOMENT PLEASE...     ":RETURN
  98. 900 US=1024:U1=209:U2=210:U3=211:U4=214:UC=204:UB=2048:UX=53280:UD=2064
  99. 902 UT=53272:UU%=21:UL%=23:UP%=2151:UN=198:UY=53281:UU=2199:UE=2087
  100. 904 UC$=CHR$(155):UV=1214:UF=196:UV=2238
  101. 905 UD$="":UP$="                                      "
  102. 909 RETURN
  103. 910 GOSUB900:PRINT"[147] "
  104. 970 GOTO 800
  105. 1000 PRINT"[147]"UC$;:RESTORE:POKEUY,6:POKEUX,6
  106. 1010 CLR:GOSUB900
  107. 1020 D$=""
  108. 1030 R$=""
  109. 1050 POKEUT,UL%:UP=0:GOSUB875
  110. 1170 UP=0
  111. 1200 DIM H$(100)
  112. 1210 NW=1
  113. 1220 READWR$
  114. 1230 IFWR$="END"THEN1241
  115. 1235 H$(NW)=WR$
  116. 1240 NW=NW+1:GOTO1220
  117. 1241 REM
  118. 1360 ZZ=0
  119. 1370 REM**CHOOSE A NEW WORD**
  120. 1380 ZZ=ZZ+1:IFZZ>NW-1THEN2080
  121. 1390 R=INT(NW*RND(TI)+1):IFH$(R)=""THEN1390
  122. 1400 H$=H$(R)
  123. 1410 H=LEN(H$)
  124. 1420 MISTAKE =0
  125. 1430 W$=""
  126. 1440 S$=""
  127. 1450 P$=""+LEFT$(D$,3)+LEFT$(R$,3)
  128. 1460 REM**STRIP OUT HYPHENS**
  129. 1470 FOR I=1 TO H
  130. 1480 CHAR$=MID$(H$,I,1)
  131. 1490 IF CHAR$="-" THEN 1510
  132. 1500 W$=W$+CHAR$
  133. 1510 NEXT I
  134. 1520 HYPHENS=LEN(H$)-LEN(W$)
  135. 1530 REM**PRESENT WORD TO STUDENT**
  136. 1531 REM
  137. 1532 UT$=" [200]YPHEN":UG$="[209]UESTION":GOTO1550
  138. 1540 GOSUB835
  139. 1550 GOSUB850:PRINT P$;" [208]LEASE HYPHENATE THIS WORD:":GOSUB560
  140. 1555 PRINT:PRINTTAB(4);"";W$;"[146]"
  141. 1560 PRINT" [197]NTER: ";
  142. 1561 US$="":UL=20:GOSUB35:S$=UR$
  143. 1570 S1$=""
  144. 1580 E=0
  145. 1590 S=LEN(S$)
  146. 1600 FOR I=1 TO S
  147. 1610 CHAR$=MID$(S$,I,1)
  148. 1620 IFCHAR$="-" THEN 1640
  149. 1630 S1$=S1$+CHAR$
  150. 1640 NEXT I
  151. 1650 IFS1$=W$ THEN 1680
  152. 1660 PRINT"[150] [217]OU MISSPELLED ";W$;"[146].[155]":PRINT" [208]LEASE TRY AGAIN.":GOSUB530
  153. 1670 GOTO 1540
  154. 1680 REM**CHECK HYPHENATION**
  155. 1690 S=LEN(S$):K=H
  156. 1700 IF S>H THEN K=S
  157. 1710 FOR I=1 TO K
  158. 1720 IF MID$(H$,I,1)="-" THEN 1750
  159. 1730 IF MID$(S$,I,1)<>"-" THEN 1770
  160. 1740 E=1
  161. 1750 IF MID$(S$,I,1)="-" THEN 1770
  162. 1760 E=1
  163. 1770 NEXT I
  164. 1780 REM**MESSAGES**
  165. 1785 IFE=0THENGOSUB500:PRINT"[158]                 [195][207][210][210][197][195][212]!!              [146][155]"
  166. 1790 H$(R)=""
  167. 1795 IFE=0THENGOSUB592:GOTO2040
  168. 1800 MISTAKE=MISTAKE+1
  169. 1805 GOSUB530
  170. 1810 IF MISTAKE>1 THEN 1910
  171. 1820 IF H=S THEN 1870
  172. 1830 IF H>S THEN PRINT"[150] [217]OU HAVE TOO [198][197][215] HYPHENS. [212]RY AGAIN.[155]":GOTO 1850
  173. 1840 PRINT" [217]OU HAVE TOO [205][193][206][217] HYPHENS. [212]RY AGAIN."
  174. 1850 PRINT"   "
  175. 1860 GOTO 1540
  176. 1870 PRINT:PRINT" [217]OU HAVE THE RIGHT NUMBER OF HYPHENS,"
  177. 1880 PRINT" BUT AT LEAST [207][206][197] IS IN THE WRONG PLACE."
  178. 1890 PRINT""
  179. 1900 PRINT:GOTO 1850
  180. 1910 REM**PRINT CORRECT HYPHENATION
  181. 1920 PRINT"[158] [212]HE CORRECT HYPHENATION OF"
  182. 1930 PRINT" ";W$;"[146]";" IS:"
  183. 1950 PRINT:PRINT"     ";H$;"
  184. 1955 [141]560:[141]596:[141]560:[137]2040
  185. 1960 [131]"HY-PHEN","TE-LE-PHONE","PA-PER","EL-E-PHANT","SE-REN-DI-PI-TY"
  186. 1962 [131]"AC-CEL-ER-A-TION","DIS-AP-POINT-MENT","DE-CON-TA-MIN-A-TION"
  187. 1964 [131]"THOUGHT","RAD-I-CAL","XY-LO-PHONE","DA-TA","RAN-DOM-IZE","END"
  188. 2020 [141]835:[143] SPACE BAR WAIT
  189. 2030 [142]
  190. 2040 [143]**ASK WHETHER TO CONTINUE**
  191. 2045 [153]" (null)OW, TRY THE NEXT WORD.
  192. 2050 O=O+1:IFO=10THEN2060
  193. 2055 GOSUB592:GOTO1370
  194. 2060 PRINT"[147]":POKE53280,0:POKE53281,0:POKE646,1
  195. 2065 PRINT"  [212]HANKS FOR PLAYING WITH ME.":GOSUB591
  196. 2070 PRINT"  [196]O YOU WISH TO REPEAT THIS PROGRAM?":GOSUB590:GOSUB560
  197. 2075 GETR$:IFR$<>"Y"ANDR$<>"N"THEN2075
  198. 2080 IFR$="Y"THENRESTORE:GOTO800
  199. 2084 PRINT"[147]  [210]ETURNING TO THE DISK [205][197][206][213]
  200. 2086 [147]"MENU",8
  201. 2088 [138]
  202. 2090 [128]
  203. 2100 [143] WHC 90:11:29
  204.